home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
cmpnew
/
cmpblock.data
< prev
next >
Wrap
Text File
|
1986-06-26
|
3KB
|
110 lines
#(
#!
(lisp::in-package 'user::compiler)
lisp::block
compiler::c1block
compiler::c1special
compiler::c2block
compiler::c2
lisp::return-from
compiler::c1return-from
compiler::c2return-from
compiler::blk
(lisp::defstruct compiler::blk compiler::name compiler::ref compiler::ref-clb compiler::ref-ccb compiler::exit compiler::value-to-go compiler::var)
system::defstruct-form
system::is-a-structure
((compiler::name lisp::nil lisp::nil lisp::nil 0) (compiler::ref lisp::nil lisp::nil lisp::nil 1) (compiler::ref-clb lisp::nil lisp::nil lisp::nil 2) (compiler::ref-ccb lisp::nil lisp::nil lisp::nil 3) (compiler::exit lisp::nil lisp::nil lisp::nil 4) (compiler::value-to-go lisp::nil lisp::nil lisp::nil 5) (compiler::var lisp::nil lisp::nil lisp::nil 6))
system::structure-slot-descriptions
system::structure-include
system::structure-print-function
system::structure-type
system::structure-named
compiler::blk-name
(compiler::blk . 0)
system::structure-access
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 0 system::v))
system::setf-lambda
system::setf-update-fn
system::setf-method
system::setf-documentation
compiler::blk-ref
(compiler::blk . 1)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 1 system::v))
compiler::blk-ref-clb
(compiler::blk . 2)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 2 system::v))
compiler::blk-ref-ccb
(compiler::blk . 3)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 3 system::v))
compiler::blk-exit
(compiler::blk . 4)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 4 system::v))
compiler::blk-value-to-go
(compiler::blk . 5)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 5 system::v))
compiler::blk-var
(compiler::blk . 6)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 6 system::v))
7
system::structure-offset
(compiler::make-blk)
system::structure-constructors
system::structure-documentation
compiler::*blocks*
1
0
"The block name ~s is not a symbol."
:name
:ref
:ref-ccb
:ref-clb
compiler::*exit*
compiler::*value-to-go*
compiler::*vs*
compiler::*compiler-output1*
compiler::fun-val
compiler::jump
compiler::*unwind-exit*
compiler::frame
compiler::*clink*
compiler::*ccb-vs*
2
"The block name ~s is not a symbol."
"The block ~s is undefined."
compiler::top
compiler::make-blk
compiler::copy-blk
compiler::blk-p
compiler::c2block-local
compiler::c2block-clb
compiler::c2block-ccb
compiler::c2return-local
compiler::c2return-clb
compiler::c2return-ccb
:exit
:value-to-go
:var
system::copy-structure
compiler::too-few-args
compiler::cmperr
compiler::c1progn
compiler::reset-info-type
compiler::c2expr
compiler::vs-push
compiler::wt-vs
compiler::unwind-exit
compiler::add-symbol
compiler::wt-clink
compiler::clink
compiler::ccb-vs-push
compiler::wt-vs*
compiler::too-many-args
compiler::cb
compiler::lb
compiler::c1expr
compiler::c2expr*
compiler::wt-ccb-vs
compiler::wt1
)